home *** CD-ROM | disk | FTP | other *** search
/ Chip: Hang es video / CHIP_ZENESZERKESZTO_2005.ISO / audio_3 / visual / robotfunk / setup.exe / {app} / main.dxr / ui_255.ls < prev    next >
Encoding:
Text File  |  2003-11-19  |  607 b   |  32 lines
  1. property spriteNum, sn, mdown
  2. global fs, fsrect, secondwidth, secondheight
  3.  
  4. on beginSprite me
  5.   sn = sprite(spriteNum)
  6.   mdown = 0
  7. end
  8.  
  9. on mouseDown me
  10.   mdown = 1
  11. end
  12.  
  13. on mouseUp me
  14.   mdown = 0
  15. end
  16.  
  17. on mouseUpOutSide me
  18.   mdown = 0
  19. end
  20.  
  21. on mouseWithin me
  22.   if mdown then
  23.     mypos = max(sn.left, min(the mouseH, sn.right))
  24.     myval = mypos - sn.left
  25.     sprite(spriteNum + 1).locH = mypos
  26.     myperc = (sprite(spriteNum + 1).locH - sn.left) / float(sn.width)
  27.     leftpoint = (myperc * 2400) - 1200
  28.     boorect = rect(leftpoint, 0, leftpoint + secondwidth, secondheight)
  29.     fs.rect = boorect
  30.   end if
  31. end
  32.